a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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FFFFFFFFFE 000000 RRRRRRRR BBBBBBBB AAAAAA cccccccc KK KK SSSSSSSS_ PPPPPPPP 

FFFFFFFFFF 000000 RRRRRRRR BBBBBBBB AAAAAA cccccccc =KK KK SSSSSSSS PPPPPPPP 

FF 00 00 RR RR BB BB AA AA CC KK KK SS PP PP 

FF 00 OO RR RR 6B BB AA AA CC KK KK SS PP PP 

FF 00 OO RR RR 6B BB AA AA CC KK KK SS PP PP 

FF 00 O RR RR 6B BB AA AA CC KK K SS PP PP 

FFFFFFFF 00 OO RRRRRRRR BBBBBBBB AK AA CC KKKKKK SSSSSS PPPPPPPP 

FFFFFFFF 00 O00 RRRRRRRR BBBBBBBB AA AA CC KKKKKK SSSSSS PPPPPPPP 

FF 00 OO RR RR BB BB AAAAAAAAAA CC KK KK SS PP 

FF 00 OO RR RR BB BB AAAAAAAAAA CC KK KK SS PP 

FF 00 00 RR RR BB BB AA AA CC KK KK SS PP cee 
FF 00 00 RR RR BB BB AA AA CC KK KK SS PP cece 
FF 000000 RR RR B8888B8B AA Ah CCCCCCCC SCKK KK $SSSSSSS PP coer 
FF 000000 RR RR B88BBBBB AA AA cccccccc KK KK SSSSSSSS PP eoee 
LL IIII1] SSSSSSSS 

LL IIIT] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLELLLLLLLL 111] SSSSSSSS 
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4 

Sep- t 99: 13: 9% AX-11 Bliss-32 V4.0-7 

~ben- 13 4 FORRTL. BR CJFORBACKSP. 3 2:1 

AC 
File name: FORBACKSP.832 Edit:SBL1010 


MODULE FORSBACKSPACE CST TUE Reet Ran BAC 
‘ip = '1-010' 


BEGIN 


PASSSSEICSSSSS SSIS ESS S CECE CCC CCCP TTC eect icc ccc iirc icici ii ii titi 


ie COPYRIGHT (c) 1978, 1980, 1982, 19848 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
ar 
*® 
® 
it THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. * 
w 
i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. . 
® 
& 
te 
x 
® 
* 


ws 
SODNAUEWN “OO ODNAUVE WN (“SO ODNAUESWN HOO ODNOULS WN —OOODNOUS wh 
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Be Se Be Be Be Be Be Be Se Ge Se Ge Fe Ge Ge BH Se Se Ge Se Ge Gs Oe Se Se Be Be Se Se Se Se Se Se Se Se Se Oe Se Se Se Se Se Se Oe FHSS es ee ee 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
§ 
2 'w DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
§ = SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
'® 
| 

§ eee till ta ll ai 
2 002 ! 
2 Oe 
3 00 !++ 
H B28 FACILITY: FORTRAN Support Library 
3 003 ABSTRACT: 
3 003 i This module contains routine FORSBACKSPACE (unit.rlu.v), 
; B08 which implements the FORTRAN BACKSPACE statement. 
; Boe ENVIRONMENT: User Mode - AST re-entrant 
4 004 AUTHOR: Jonathan M. Taylor, CREATION DATE: 17-OCT-1977 
4 004 MODIFIED BY: 
4 004 i [Previous edit history removed. SBL 24-Sept-1982) 
4 004 ! 1- - Move BUILTIN CTUAL COUNT into the routine. The next version of the 
4 004 : LISS compiler will demand this. JBS 20-Aug-19 
4 004 ! 1-009 - ot ph. speedup for disk files, SBL 35-Jun-19 
4 Bye i 1-010 = Remove external literal declarations. SBL 18-Jun-1983 

005 


~~ 


CORTE ROPE FORTRAN 
1-01 


3 24 051 
3 0 § 
; 4 0 

3 5 054 
; 6 8933 
3 57 121 
, = 1 § 
3 59 1 

; 60 124 
; 661 0125 
; 6¢ 0126 
: ¢ 0127 
3; «664 0126 
;- @ 0129 
; & 0130 
; 67 0131 
; 668 01 ; 
3 69 012 
3 70 0134 
Fee 3 | 0135 
3; 2 0136 
3 73 0137 
6 COS 0138 
; sr 0139 
3 76 0140 
3 77 0141 
3 78 0142 


ce aD eet a 


i. se 
BACKSPACE statement 4 
Sep 


PROLOGUE FILE: 


REQUIRE 'RTLIN:FORPROLOG'; 
' 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
FORSBACKSPACE; 

i] 

OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 


wee yy 
FOR 


NAL_STO, 
FORS$CB_PUSA : jSB_CB_PUSH NOVALUE, 
FORS$$CB-POP : JSB_CB_POP NOVALUE, 
FORSSIOSTAT AND: 


71384 99:15:06 AX-11 Bliss-32 V Page 2 


PORRTLS SRC FORBACKSP. if 231 (2) 


: FORTRAN declarations 


FORTRAN BACKSPACE statement 


convert error number and SIGNAL 
Create LUB/ISB/RAB if needed 

Return I/0 system to previous state 
Condition handler 


5 } 
FORSBACKSPACE ORTRAN BACKSPACE statement 1b-se -1984 00:13:04 AX-11 Bliss-32 V4.0-74 e 
er ORTRAN BACKSPACE statement 1 =308- 1382 99:47:93 age 33 


FORRTL.SRCJFORBACKSP.B52;1 (3) | 
GLOBAL ROUTINE FORSBACKSPACE (XSBTTL'FORTRAN oT tost 4 go al | 
+ Logica 


UN 9g unit 
, ERR_EQL ! Error code (optional) 
= 


1e¢ 
FUNCTIONAL DESCRIPTION: 
Implements the FORTRAN BACKSPACE statement. 
FORMAL PARAMETERS: 


UNIT. rl.v gical unit to perform backspace 


i 

i 

i 

: lo 

: ERR_EQL.rl.v If O or omitted, all errors are signalled. 
} If non-zero, errors unwind to the caller. 
! IMPLICIT INPUTS: 

; NONE 

IMPLICIT OUTPUTS: 

NONE 

i ROUTINE VALUE: 

i 

i 

i 

i 

i 

i 

1 

le 


The returned value is always a correct IOSTAT small integer 
FORTRAN error number. 


SIDE EFFECTS: 
SIGNAL _STOPs FORS_BACERR if RMS REWIND error or RMS $GET error. 
BEGIN 


GLOBAL REGISTER 
CCB = K_CCB_REG : REF SFORSCCB_DECL; 


BUILTIN 
ACTUALCOUNT; 
LOCAL 
FOUND, ! 1 if we have got the record 
L_UNWIND ACTION : VOLATILE, ! UNWIND action code : 
L-ERR_EQC_PRES : VOLATILE; ! 1 if ERR= present, 0 otherwise 
ENABLE ; 
FORSSIOSTAT_HND (L_UNWIND_ACTION, L_ERR_EQL_PRES); ! LUB cleanup with ERR= and IOSTAT 


'e 
Determine if ERR= is present. 


WIAA AIA III RIN NINININIDN 2 3 2 2 OO | — POO OCOCOCOCOOOCOC COO 0DOOO0O000MMME® 
SALAS SSSRSVURRRUN VS SSNS ARWW = SSSUEA ROW HOO RRR OOD IR ee 


RIPIPIPIPINPINPNIANINPININDAININIANIMNIANIAN AINA a a td th 


Be Be Se Se Be Be ee Be Be Se Be Ge BH Se Ge Ss Ge Ge Be Be Ge Be Ge Se Se Fe Ss Oe Se Se BH Ss Be Se Ge Se Se Se Ss Ss Ss Os Se Se FESS Se Oe Oe Se Ss Se Se Sete Geese 


eg ak a ak an a a a at at at ns tt = a tt 2 


“oo 
ow 


IF ACTUALCOUNT () GTR 1 THEN L_ERR_EQL_PRES = .ERR_EQL ELSE L_ERR_EQL_PRES = 0; 


— 


~~ 


EE 
, FORSBACKSPACE 
1-010 


; 3 
ay 
a. am 
3 
ae 
9 
3; } 
e 4 
= 
; Y 
me 
& 3 
5 F 
;. ¥ 
s 3 
, ¥ 
.. cs 
3; 7 
- 
3; 7 
gs ¥ 
. 5 
. 9 
; ¥ 
; 
=. 
;. 9 
i. 
; % 
3 
. 3 
;. 4% 
ia 
> 
; ¥ 
. 3 
cat 
3; 7 
3; 7 
; 7 
: ¥ 
ee 
SS 
.% 
e % 
; Y 
; 
es 
Se. 
3 4 
; 4 
3 
iz 
SS 
.% 
a 
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RAN BACKSPACE statement 1$-sep-19 4 90:47:96 Ax-1 sBheltite s 251 (3 


Bliss-32 v4.0 
RAN BACKSPACE statement 14-Sep-1984 1 RC} 


1 
7 FORRTL.SR 


¢ 
Unwind action is NO-OP (no LUB to pop). 


—_ 


0009 09 00 0909 SII SINISE NIA AAA AA AAA AMIN BBB BEE EE PW 


i Get a LUB for this logical unit. 
! On return, CCB points to the current control block. 


RT 
RT 
00 
a‘ 
Se LLUNWIND_ACTION = FORSK_UNWINDNOP; 
0 
07 
08 
09 


FORSS$CB_PUSH (.UNIT, LUBSK_LUN_MIN); 


'¢ 
Unwind action (in case error occurs) is to pop the LUB/RAB/ISB. 


L_UNWIND_ACTION = FORSK_UNWINDPOP; 


rs 
Check the LUB. If the file is not open, then this is a no-op. 


IF .CCB CLUB$V_OPENED) 
THEN 
BEGIN 


BIND 
FAB = CCB: REF SFORSFAB_CCB_STRUCT, 
NAM = CCB: REF $FORSNAM~CCB-STRUCT 

FAB_DEV = FAB CFABSL_DEVJ: GLOCK C4, BYTE); 


'¢ 
Ensure that the file is sequential organization and access. 


-CCB CLUB$V_DIREC } 
-CCB CLUBSV~APPEND 


HEN 
RETURN FORSSSIGNAL STO (FORSK_BACERR,O, 
FORS_OPEREQSEQ); ! Operation requires sequential org. and access 


'¢ 
Ensure that this is a tape or disk file and is not a PPF. 


IF NOT (,FAB_DEV CDEV$V_SQD) OR .FAB_DEV CDEVS$V_RNDJ) OR 
wei CNAMSV_PPF ) 
RETURN FORSSSIGNA 


STO (FORSK_BACERR,O, 
FOR$_OPEREQDIS); | 


L 

sy Operation requires disk or tape file 
'¢ 
: Indicate that we have not yet positioned to the record. 


020005 


5 
| oe pee mrreomg 


ooo 


oe Fe OE FESO Ol oer EE 
ee. 
| FORSBACKSPACE ORTRAN BACKSPACE statement 16-Sep-1984 00:13:04 AX-11 Bliss-32 V4.0-74 Page 
198%8 ORTRAN BACKSPACE statement 1o-3 08-1884 90:39:95 PORRTL SRESFORBACK SP B42: 1 . (3) 
194 7 FOUND = 0; 
195 34 
1 ‘+ 
1 60 ! If we have read at least two records in the file, try to use a 
1 61 ! fast method of oene the record. However, we can't do the 
1 6¢ | fast method if FABSV_SQ0 is set (set for Detnet files). 
64 ; 
65 wa CLUBSL_LOG_RECNO] GTRU 2 AND NOT .FAB CFAB$V_SQ0) 
BEGIN 
LOC 


AL 
DEST_RECNO; ! Destination record number. 


vs 
: Compute the number of the record before the current one. Note 

! that since LUBSL_LOG_RECNO contains the number of the NEXT record, 
we must subtract 2. 


DEST_RECNO = .CCB CLUBSL_LOG_RECNO) - 2; 


+ 
Use direct-access positioning if fixed-length records. 


IF .CCB CLUBSV_FIXED) 
THEN 
BEGIN 


te 

: Set record number to previous record and do a $GET. 
' If it succeeds, then set FOUND to indicate we have 
the record we want. 


CCB CRABSL_KBF] = DEST_RECNO; 
CCB _CRAB$B-RAC) = RABSC_KEY; 
Ht See! (RAB = .CCB) 


WN — SO DONO UVUEWN “OO ONOUSWN—OV0O~n 


BEGIN 
CCB CLUB$L_LOG_RECNO] = .CCB CLUBSL_LOG_RECNO) - 1; 
coe = .FOUND™+ 1; 


pte ER AY tet 8+ tat tt te eet PP RP PRN BPN Ar 8 
WO OONOAUE WN O ODNOU FWA 0 OONOU FW OCW 


BPE FAWN MINIMA RPP DIPIPONIDN 2 2 2 SS  4BOOOOOOCOO ono 
B SAR FRRENVLSBZRLE 
WA.A ALAA AIP PIPUPIPIPIPONINYNPINYPEPE PON No NoNnoNnonofpofnofnofnorfy 


CDOGOOOOOSOCOOCOOSOSOSOOSOSOSOSOSOSOSSOCOGOOSOOOOOCSOCOODOOOCOOOOOOOOCOOCOOOOO Fm 


Be Se Oe Be Os Oe Oe Oe Ge Se Se Se Se Se Ge Be Se Se Ge Ge Se Fe Se Se Ge FH Se Se Gs Se Ge Se Se Se Se Se Se Se Se oe Ge OH SH Se SHS Oe Se O48 Os Oe Oe HSH Se we 
WLS Po ot oP oF oF oF ot ot at or 4] ol ol Poh sl ok a ah dh ah eb ah eh dl al et ee oe oe oP oF oF oP oF oF oF oF? oF oF oF oF oF 


POPIPIPIPNPININININININIDINININPYPYNGPINIPINIPININIPY PNP PoPonononongnyd 


7 : 
8 END; 
6 r 
1 ! If RFA cacheing is in effect, look in the cache to see if we 
§ 305 ! have the desired record in the cache. If so, do an RFA $GET of 
$9 ! it. Note that RFA cacheing is not enabled for fixed-length 
$0 ' records, so we don't have the record yet. 
te 309 se 
4 $19 IF .CCB CLUBSV_RFA_CACHE_ENABLE] 
49 312 THEN BEGIN 
50 318 LOCAL 


5 
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FORSBACKSPACE FORT 4 13:04 AX-11 Bliss-32 V4.0-74 Page 6 
pet FORTRAN BACKSPACE statement 12-808-ioke 00: 93:% FORRTL. SRC IFORBACKSP.B 2:1 ° (3) 
: 5 16 RCE: REF RCE_R_RCE_STRUCT; ! RFA Cache Entry 

3 36 $ RCE = .CCB CLUBSA_RFA_CACHE_PTRI; ! Get current entry 
: 5 5 18 '¢ 

3 2 \? } Look through cache for the right record number. 

: 258 0321 

3 2 8 ¢ 2 DECRU I FROM RCE_K_CACHE_SIZE TO 1 DO 

: 261 0324 6 IF _ .RCE CRCE_L_LOG_RECNO] EQLU .DEST_RECNO 

:; 26 8 5 § THEN 

; 26 6 BEG] 

> 264 0327 7 CCB CRABSL_RFAO) = .RCE FREE READ}: 

; 265 0328 7 CCB CRABSW-RFAG] = .RCE CRCE“W-RFAG); 

: 266 0329 7 CCB CRABSB-RAC) = RABSC_RFA; 

3 67 0330 ° IF $GET (RAB = .CCB) 

: 268 0331 THEN 

; 269 thts 8 BEGIN 

; 270 0333 8 CCB CLUBSA_RFA_CACHE_PTR] = .RCE CRCE_A_NEXT); 
: 6az) 0334 8 CCB CLUBSL~LOG-RECNOJ = .CCB CLUBS$L_LOG-RECNO) - 1; 
; $7 0335 8 FOUND = .FOUND + 1; 

S ar 0336 7 END; 

: 374 0337 7 EXITLOOP; 

; e275 0338 6 END; 

: 276 0339 6 RCE = .RCE CRCE_A_PREVI; ! Get next entry 

; er 0340 5 END; 

; 278 0341 4 END; 

, ey Berg 3 END; 

: 280 034 

; 281 0344 '+ 

: sag 0345 ! If we haven't found the record yet, rewind and forward space. 

3 $e 0346 != 

; 6284 0347 

; 285 0348 IF NOT .FOUND 

: 286 0349 THEN 

s 267 0350 4 BEGIN 

; 288 0351 4 

: 289 O26 4 LOCAL 

3 Sor O327 ? RCE: REF RCE_R_RCE_STRUCT; ! RFA Cache entry 

; $39 0355 4 RCE = .CCB CLUBSA_RFA_CACHE_PTR); 

: 295 9326 4 CCB CRAB$B_RAC) ="RABSC_SEQ; 

3 294 B32 4 

: 295 58 4 ‘+ A : ‘ 

3 0359 4 ' If RMS can't rewind the file then fail. 

:; 29 Beer 4 !- 

; 298 361 4 

8 99 B306 4 IF NOT SREWIND (RAB = .CCB) THEN 

; 00 363 é RETURN FORSSSIGNAL_STO (FORSK_BACERR); 

3 4 $e 4 '¢ F 

3 0 308 4 ' Now read records until we're positioned one record before 

3; 304 67 & ' the last record read. 

: 305 368 4 te 

; 06 4 4 : nlp ; 
; Bw 0370 4 IF .CCB CLUBSL_LOG_RECNOJ GTRU 1 ! i.e. we're sitting somewhere in the file 


F 5 
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pet RAN BACKSPACE statement 1o-808- 1382 09:37:95 FORRTL.SRCJFORBACKSP.852;1 . ( 
THEN 
BEGIN 
LOCAL 


: ! Local temp for counting 


I = ,CCB CLUBSL_LOG_RECNO) - 1; ! Point to previous record 
CCB CLUBSL_LOG_RECNO) = 1; 


WHILE .CCB CLUBSL_LOG_RECNO] LSSU .I DO 
BEGIN 


oO 
@OODWNAUES WN “OO ONOULS WH —O0Mw 


5 ” 

; 

: 1 

: 1 

3 1 

: 1 

s 1 

: 1 

3 1 

s 1 

im 6 

3 (CS 358 6 

3 de 6 + 

: § 84 6 ' Call RMS to get next record. 

; 385 6 le 

: Se 306 6 

: 3 44 : IF NOT $GET (RAB = .CCB) 

ry 2 $62 ? RETURN FORSSSIGNAL_STO (FORSK_BACERR); 

3 $ 391 6 + 

3 § 338 6 ' Make entry in RFA. cache if enabled. 

3 393 6 != 

; 33 394 6 

3 * 395 6 if .CCB CLUB$V_RFA_CACHE_ENABLE] 

3 he 396 6 THEN 

3 397 7 BEGIN 

; 35 398 7 RCE CRCE_L_LOG_RECNO) = .CCB CLUBS$L_LOG_RECNO); 
3 30 399 7 $LIBSMOVO TCCB-CRABSW_RFAJ, RCE CRCE_Q_RFAI); 
: 337 400 7 RCE = .RCE CRCE_A_NEXT); 

; 35338 401 6 3 

: 339 Rens 6 

; $9 0403 6 1+ ; 

; «(341 0404 6 ! If segmented record control, check the validity 
; a6 0405 6 ! of the records and for end-of-file. Read the | 
; 34 0406 6 ! following segments of the segmented record until 
: 344 0407 6 ' Last record control info is seen. 

: «345 0408 6 '- 

; 346 0409 6 

; 347 0410 6 IF .CCB CLUBSY_SEGMENTED] 

: 48 0411 6 THEN 

; 349 pels 7 BEGIN 

: 350 041 7 UNTIL 

: 51 bey 8 BEGIN 

. 25 415 1 IF ((.CCB CRABSW_RSZ) FOL 0) 

: 5 0416 10 OR ((.CCB CRABSW B5t GEQU 2) AND 

s 54 0417 9 (.(.CCB CRABSL_RBF <2, °*4> NEQ 0))) 
s 395 0418 8 THEN 

H 56 0419 ; RETURN Cones? | Gual...$ 70 (FORSK_SEGRECFOR); 
; 357 420 .(.CCB CRABSL_RBFIJ)<1, 1> 

3 58 421 8 END 

; 359 4 ; 7 DO 

: 60 4 8 BEGIN 

: rt be $ 9 Ml NOT $GET (RAB = .CCB) 

: 368 04 § : RETURN FORSSSIGNAL_STO (FORSK_BACERR); 
3; 6364 042 END; 


O9FC 00000 -ENTRY 
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nu 
AM 
o 
rc 
r*] 
al 


08 AE 
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04 
000000006 00 

08 A 
$ FC =—AB 


3$: MOVAB 
08 Al A 

4, 66 04 
8 66 0D 
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IOSTAT value 
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FORTRAN BACKSPACE statement 14-Sep-1984 12:31 
: 8 ° END; 
; 0 § CCB CLUBSL_LOG_RECNOJ = .CCB CLUBSL_LOG_RECNO) + 1; 
: é 4 END; 
: & + 
: 2 2 } Record found = set RFA cache entry pointer. 
; 4 
: ; 4 CCB CLUBSA_RFA_CACHE_PTR] = .RCE; 
; 8 END; 
3 39 
; 40 END; 
3 4) 
3 044 '¢ 
3 044 ' Return 1/0 system to previous state. 
3 0444 !- 
3 0445 
| gic gentageypor , 
: 0448 1 END; peepee 


KSPACE FORTRAN BACKSPACE statement 


IGNAL_STO 

B_PUSA, FORS$CB_POP 
ORSSIOSTAT_HND 

YS$GET, SYSSREWIND 


_FORSCODE,NOWRT, SHR, PIC,2 
FORSBACKSPACE, Save R2,R3,R4.R5,R6,R7,R8,- 


FORSSSIGNAL_STO, R8 
SYS$GET, R7 


~ 
> 
vw 
~se 
. 
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R_EQL, L_ERR_EQL_PRES 


ERR_EQL_PRES 
L-UNWIND_ACTION 


oZzOo-4t "MDS 


es MOO-—CD— + 


PUSH 
B_ACTION 
§ R6 
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FORSBACKSPACE 


1-010 


we 
FORSBACKSPACE FORTRAN BACKSPACE statement ihes Sep 3:04 AxX-11 Bliss-32 V 
1-010 FORTRAN BACKSPACE statement 14-Sep 71382 99: i 9% PORRTL eS *SroneAcker. a 2:1 
08 Ad 63 D0 0011 MOVL (R3), 86 
OC AG 10 AB a O18 MOVa  16(C¢B) io, 
54 4 00 OO11E MOVL (RCE), RCE 
2A 66 B €1 00121 15$: BBC #11, (R6), 218 
22 «AB 83 4 5 16$: TSTw  34(€CB) 
OE 1 128 BEQL 17% 
02 22 AB Bi OO10A CMPW 6-34 CCB), #2 
OC 1F 001 E BLSSU -18$ 
FFFC BF 28 «BB 83 01 BITW a40(CCB), #65532 
04 13 00136 BEQL 18s 
GEIR SSR 7S: Mae 
OE 28 «BB of E0 8 C 18$: BBS #1, a40(CCB), 21% 
5B DD 00141 PUSHL (CCB 
67 01 FB 00143 CALLS #1, SYSSGET 
dC 50 £8 00146 BLBS RO, 16$ 
17 DD 00149 19$ PUSHL #23 
56 01 FB 00148 20$ CALLS #1, FORS$SIGNAL_STO 
04 0014 RET 
63 D6 OO14F 21S: INCL _—(R3) 
BO 11 00151 BRB 14$ 
CC AB 54 D0 00153 28: MOVL RCE, -52(CCB) 
000000006 00 16 00157 23s: JSB FOR$$CB_POP 
50 04 0015D CLRL = RO 
04 0015F RET 
0000 00160 24$ «WORD Save nothing 
50 08 AC DO 00162 MOVL 8(AP), RO 
50 04 AO DO 00166 MOVL 4(RO). RO 
F8 AQ 9F OO16A PUSHAB L_ERR_EQL_PRES 
FC AO 9F 0016D PUSHAB L “GNUIND tRCTION 
02 DD 00170 PUSHL #2 
5E DD 00172 PUSHL SP 
7E 04 AC 7D 00174 MOVO. 4(AP), -(SP) 
000000006 00 03 FB 00178 CALLS #3, FORSSIOSTAT_HND 
04 0017F RET 


; Routine Size: 384 bytes, Routine Base: _FORSCODE + 0000 


: 386 0449 1 

3 (oer 0450 1 END 

; 388 0451 1 

; «389 0452 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
_FORSCODE 384 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
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wo 


~ wn 


FORSBACKSPACE FORTRAN BACKSPACE statement 

1-010 FORTRAN BACKSPACE statement 

; Library Statistics 

; o------- Symbols 
$ File Total Loaded 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 20 
;  $255$DUA S: FORRTL.OBJ onl 18 Lees 711 201 
H “$ 55$DUA28: LFORRTL.OBJIRTLLIB.L32;1 36 1 


PREP CEI SOLD DATS. o's LTE DIETOREE ML, SOME Fp er EE or en eeen eer ne MSRC$:F OP BACKSP/UPDATE=(ENH$: FORBACKSP 


Size: 384 code + 0 data bytes 
Run Time: 00:11.8 

Elapsed Time: 00:37. 

Lines/CPU Min: 292 
Lexemes/CPU-Min: 15580 

pee Used: 187 pages 

Compilation Complete 


COMMAND QUALIFIERS 


weuseoes Pages 
Percent Mapped 
0 581 
28 ¢ 
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VAX-11 Bliss-32 V4.0 
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